Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Виведення найпростіших геометричних фігур за допомогою мови Pascal

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано

Інформація про роботу

Рік:
2007
Тип роботи:
Лабораторна робота
Предмет:
Інформаційні технології
Група:
КН

Частина тексту файла

Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ З В І Т Лабораторна робота № 1 З курсу «Дискретної математики» Тема: «Виведення найпростіших геометричних фігур за допомогою мови Pascal» Мета роботи: Навчитися виводити на екран в певному його місці найпростіші геометричні фігури за допомогою стандартних функцій мови Pascal. Завдання: Вивести з заданому місці на екрані задані геометричні фігури так, щоб вони змінювали свій розмір, колір та своє положення в межах заданої області. Вивід фігур здійснювався за допомогою стандартних функцій мови Pascal: Rectangle, Circle, Line, Ellipse, Bar3d, PieSlice Текст програми program lab01; uses crt, graph; var x, y,x1,y1: integer; driver, mode: integer; i,a:integer; color: word; maxColor: string; procedure triangl(x2,y2,a,b:integer); begin line(x2,y2,x2,y2+a); line(x2,y2+a,x2+b,y2+a); line(x2+b,y2+a,x2,y2); end; begin writeln('Wweditj chuslo povtorenj '); readln(a); driver:=detect; initGraph(driver, mode, 'c:\Bp\bgi'); if graphResult <> 0 then halt(1); color:=0; randomize; { repeat } x1:=getmaxX div 3; y1:=getmaxy div 3; x:= x1*2+random(x1); y:= y1+random(y1); { x:= random(GetMaxX); y:= random(GetMaxY); } for i:=1 to a do begin { PutPixel(x,y,color); } { setfillstyle(random(12), Lightred);} { Circle(x,y1+random(y1), random(y1 div 2));} { Rectangle(x, y,x1+random(x1),y1*2+ random(y1)); } setcolor(random(getmaxcolor)); str(getmaxcolor, maxColor); outtextxy(100,100,'xx=' + maxColor); triangl(random(x1),random(y1)+y1,random(y1 div 2),random(y1 div 3)); { setbkcolor(random(getmaxcolor));} { Bar3d(100, 200, 350, 360, 10, true);} setfillstyle(random(12), Lightred); { Inc(color); if color = getMaxcolor then color := 0; } delay(1000); { pieSlice(random(getmaxx), random(getmaxy), random(360), random(360), random(50)); fillellipse(random(getmaxx), random(getmaxy), random(360), random(360));} { until keypressed; } end; readln(a); closegraph; end. Висновок: На даній лабораторній роботі я ознайомився із реалізацією використання графіки у мові Pascal, ознайомився із стандартними процедурами для побудови найпростіших геометричних фігур, та навчився розміщати їх в певному місці на моніторі.
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини